home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 175 / 175.d81 / b.ls album (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  210 lines
  1. 10 poke56,39:clr:poke53371,0:poke788,49:tq=ti
  2. 12 i=rnd(-ti)
  3. 20 poke53281,0:poke53280,0
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 32 print"[147]":gosub60000
  6. 34 dimg$(13),fg$(13),bd%(13),x1(13),x2(13),y1(13),y2(13)
  7. 40 sys57812"album unpacker",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 50 sys57812"album.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  9. 60 ifti<tq+100then60
  10. 62 print"[144][147]":tq=ti
  11. 70 poke251,64:poke252,96:poke253,92:sys51456:sys51459:poke53280,5
  12. 80 sys57812"mouse jr c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  13. 90 sys57812"printer9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  14. 100 sys57812"album font",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  15. 110 ifti<tq+100then110
  16. 112 c=54272:s=1024:ky$="[145][157]123456"
  17. 114 poke53281,0:sys51459:poke53280,0
  18. 116 poke53272,27
  19. 118 ml=192*256:mv=ml+156:pokemv+1,158:v=53248
  20. 120 sysml:sysml+18,0,38,0,24
  21. 122 pokemv+19,128:sysml+6,10176:pokev+21,0
  22. 124 pokev+39,15:pokev+40,11
  23. 126 goto180
  24. 140 ifi%=1theny=y-1:ify<0theny=0
  25. 142 ifi%=2theny=y+1:ify>24theny=24
  26. 144 ifi%=3thenx=x-1:ifx<0thenx=0
  27. 146 ifi%=4thenx=x+1:ifx>39thenx=39
  28. 148 return
  29. 180 fori=0to7:readd:pokemv+11+i,d:next
  30. 190 data99,100,101,103,108,123,124,126
  31. 200 fori=1to12
  32. 202 g$(i)="[204][207][193][196][211][212][193][210]"+str$(i+84):fg$(i)="pic"+str$(i+84)+".shp":bd%(i)=0
  33. 210 x1(i)=1-20*(i>6):x2(i)=x1(i)+17
  34. 220 y1(i)=-1+i*3+18*(i>6):y2(i)=y1(i)+2
  35. 230 sysml+15,i,x1(i),x2(i),y1(i),y2(i)
  36. 232 next
  37. 340 poke53272,27
  38. 350 fori=0to2:reade$(i),m1(i),m2(i),m3(i),m4(i),e1$(i)
  39. 360 sysml+15,13+i,m1(i),m2(i),m3(i),m4(i)
  40. 370 data"[217][197][193][210] #8",2,12,21,23," 7-[208][201][206]"
  41. 380 data" [200][197][204][208] ",16,25,21,23," 8-[208][201][206]"
  42. 390 data" [209][213][201][212]",29,37,21,23," [194][193][195][203]"
  43. 400 next
  44. 410 sysml+30,0,39,0,24,0,8
  45. 420 poke53281,0:poke53280,0
  46. 430 pokev+21,3
  47. 452 print"[159]";
  48. 460 fori=1to12
  49. 470 sysml+30,x1(i),x2(i),y1(i),y2(i),255,5+16
  50. 480 sysml+12,x1(i)+9-len(g$(i))/2,y1(i)+1,g$(i)
  51. 490 next
  52. 500 print"";
  53. 510 fori=0to2:sysml+30,m1(i),m2(i),m3(i),m4(i),255,14+16
  54. 520 sysml+12,m1(i)+2,m3(i)+1,e$(i)
  55. 530 next
  56. 532 x=12:y=12
  57. 534 sysml+21,x,y
  58. 540 sysml+9:sysml+60,ky$
  59. 542 if(l2%=0)and(i%=0)then540
  60. 544 p=cr%:ifpthen560
  61. 550 if(i%>0)and(i%<5)thengosub140:goto534
  62. 552 goto540
  63. 560 sysml+39,160
  64. 566 ifp=13then800
  65. 568 ifp=14then700
  66. 570 ifp=15then950
  67. 580 sysml+36,p,255,1
  68. 582 pokev+21,0
  69. 590 sys57812fg$(p),dv,0:poke780,0:poke781,0:poke782,48:sys65493
  70. 595 md=peek(48*256)
  71. 600 poke251,48:poke252,96:poke253,92:sys51456:poke53280,bd%(p):sys51459
  72. 610 sysml+9
  73. 612 geta$:ifa$="p"thengosub3000:goto640
  74. 620 ifl2%=0then610
  75. 630 sys51459
  76. 640 sysml+42,160:pokev+21,3
  77. 650 goto540
  78. 700 pokev+21,0:ifhthensysml+42,168:goto750
  79. 702 h=1
  80. 710 sysml+30,1,38,2,19,255,5+16:print"[129]";
  81. 712 sysml+12,2,3,"    [192][178][192][178][192][178][192][178][192][178][192][178][192][178][192] [176][192][174][174]  [174][192][174][174] [176][176][174][176][174]
  82. 714 [158]ml[170]12,2,4,"(NULL)left$val (NULL)@(NULL)@atn@str$@(NULL)@(NULL)@atn@(NULL)wait -tan<(NULL)  -tan<(NULL) (NULL)(NULL)/exp(NULL)
  83. 716 sysml+12,2,5,"    [192][177][192][177][192][177][192][177][192][177][192][177][192][177][192] [189] [173][173][192][189][189][192][189][173][192][189][189]  [173]
  84. 720 [158]ml[170]12,2,7,"cont    (NULL)se keyboard, mouse in (NULL)ort #1
  85. 722 sysml+12,2,8,"or joystick in [208]ort #2 to move the
  86. 724 [158]ml[170]12,2,9,"arrow. lenlick or (NULL)(NULL)atnlenvalcont on a green
  87. 726 sysml+12,2,10,"box to see the picture. [215]hile it's
  88. 728 [158]ml[170]12,2,11,"showing, press (NULL)cont to go to the list(NULL)(NULL)right$(NULL)(NULL)cont"
  89. 729 [158]ml[170]12,2,12,"sequence. ascollow the prompts.
  90. 730 sysml+12,2,14,"    [195]lick on [155][217][197][193][210] #8[154] to see a
  91. 732 [158]ml[170]12,3,15,"slideshow of the twelve pictures.
  92. 734 sysml+12,3,16,"[195]lick or [211][208][193][195][197][154] to go to the next
  93. 736 [158]ml[170]12,3,17,"picture; press (NULL) to stop the show.
  94. 740 sysml+39,168
  95. 750 sysml+9
  96. 760 ifl2%=0then750
  97. 770 sysml+42,160:pokev+21,3
  98. 780 goto540
  99. 799 goto799
  100. 800 fori=1to12
  101. 810 sysml+36,i,255,1
  102. 820 pokev+21,0
  103. 830 sys57812fg$(i),dv,0:poke780,0:poke781,0:poke782,48:sys65493
  104. 835 md=peek(48*256)
  105. 840 tq=ti
  106. 850 poke251,48:poke252,96:poke253,92:sys51456:poke53280,bd%(i):sys51459
  107. 860 sysml+9:geta$
  108. 862 ifa$="q"theni=12:goto880
  109. 870 ifl2%=0andti<tq+1000then860
  110. 880 sys51459
  111. 890 sysml+42,160:pokev+21,3
  112. 892 next
  113. 900 goto540
  114. 950 sysml+12,30,22,"[195][207][206][198][201][210][205]"
  115. 956 poke198,0:x=30:y=22:pokev+21,3
  116. 958 sysml+21,x,y
  117. 960 sysml+9:sysml+60,ky$
  118. 964 ifi%>0andi%<5thengosub140:goto958
  119. 970 ifcr%=15thensysml+3:pokev+21,0:goto40000
  120. 972 ifl2%=0then960
  121. 980 sysml+42,160
  122. 990 goto540
  123. 3000 sys51459:sysml+42,160
  124. 3004 print"";
  125. 3006 fori=0to2:sysml+30,m1(i),m2(i),m3(i),m4(i),255,5+16
  126. 3008 sysml+12,m1(i)+2,m3(i)+1,e1$(i)
  127. 3010 next
  128. 3016 poke198,0:x=30:y=22:pokev+21,3
  129. 3018 sysml+21,x,y
  130. 3020 sysml+9:sysml+60,ky$
  131. 3032 ifcr%=13thena1=1:tb=80:goto3250
  132. 3034 ifcr%=14thena1=2:goto3080
  133. 3036 ifcr%=15thenreturn
  134. 3040 ifi%>0andi%<5thengosub140:goto3018
  135. 3042 goto3020
  136. 3080 x=8:y=7:sysml+30,6,33,y,y+10,255,1+16
  137. 3100 sysml+12,x,y+1,"[159]   [196][197][206][211][201][212][217]      [215][201][196][212][200]
  138. 3110 [158]ml[170]12,x,y[170]3,"1cont  (NULL)ingle       (NULL)ide
  139. 3120 sysml+12,x,y+4,"2[154]  [195][210][212]          [206]ormal
  140. 3130 [158]ml[170]12,x,y[170]5,"3cont  str$ouble       (NULL)arrow
  141. 3140 sysml+12,x,y+6,"4[154]  [196]ouble       [215]ide
  142. 3150 [158]ml[170]12,x,y[170]7,"5cont  (NULL)uad         (NULL)arrow
  143. 3160 sysml+12,x,y+8,"6[154]  [209]uad         [206]ormal
  144. 3166 [151]198,0:x[178]17:y[178]10:[151]v[170]21,3
  145. 3168 [158]ml[170]21,x,y
  146. 3170 [158]ml[170]9:[158]ml[170]60,ky$
  147. 3174 [139]l2%[167][139]cy%[177]9[175]cy%[179]16[175]cx%[177]5[175]cx%[179]35[167]a2[178]cy%[171]9:[137]3190
  148. 3176 [139]cr%[178]13[167][142]
  149. 3178 [139]i%[177]5[167]a2[178]i%[171]4:[137]3190
  150. 3182 [139]i%[177]0[175]i%[179]5[167][141]140:[137]3168
  151. 3184 [137]3170
  152. 3190 [158]ml[170]24,120
  153. 3192 [139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
  154. 3200 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
  155. 3210 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
  156. 3220 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
  157. 3230 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
  158. 3240 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
  159. 3250 x[178]8:y[178]7:[158]ml[170]30,6,33,y,y[170]10,255,1[170]16
  160. 3270 [158]ml[170]12,x[170]6,y[170]1,"list(NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
  161. 3280 sysml+12,x,y+3,"1[154]  [204]eft
  162. 3290 [158]ml[170]12,x,y[170]4,"2cont        lenenter
  163. 3300 sysml+12,x,y+5,"3[154]                [210]ight
  164. 3310 [139]a2[179][177]3[175]a2[179][177]5[167]3336
  165. 3320 [158]ml[170]12,x,y[170]6,"4cont    (NULL)eft-lenenter
  166. 3330 sysml+12,x,y+7,"5[154]          [210]ight-[195]enter
  167. 3336 x[178]17:y[178]10:[151]v[170]21,3
  168. 3338 [158]ml[170]21,x,y
  169. 3340 [158]ml[170]9:[158]ml[170]60,ky$
  170. 3342 [139]l2%[167][139]cy%[177]9[175]cy%[179]16[175]cx%[177]5[175]cx%[179]35[167]a3[178]cy%[171]9:[137]3360
  171. 3344 [139]cr%[178]13[167][142]
  172. 3346 [139]i%[177]4[175]i%[179]10[167]a3[178]i%[171]4:[137]3360
  173. 3348 [139]i%[177]0[175]i%[179]5[167][141]140:[137]3338
  174. 3349 [137]3340
  175. 3360 [139]a3[178]1[167]tb[178]0:[137]3420
  176. 3370 [139]a3[178]2[167]3420
  177. 3380 [139]a3[178]3[167]tb[178]tb[172]2:[137]3420
  178. 3390 [139]a2[179][177]3[175]a2[179][177]5[167]3340
  179. 3400 [139]a3[178]4[167]tb[178]53:[137]3420
  180. 3410 tb[178]266
  181. 3420 [151]251,48:[151]252,96:[151]253,92:[158]51456
  182. 3430 [151]v[170]21,0:[158]ml[170]3:[158]51459
  183. 3440 [139]a1[178]1[167][158]36864,96,92,tb,md:[137]3460
  184. 3450 [139]a1[178]2[167][158]36867,96,92,tb,ds,bt,bt[172]320,md
  185. 3460 [151]198,0
  186. 3470 [151]186,dv:[158]51459:[158]ml:[158]ml[170]24,120
  187. 3480 [142]
  188. 10000 d[178][194](186):n$[178]"0:b.ls album":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  189. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  190. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  191. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  192. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  193. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  194. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]4007